home *** CD-ROM | disk | FTP | other *** search
/ BlastDOS / [DOS_Application]_BIT_Software_-_BitCom_3.58c_-_Distribution_Disks.zip / VT100B.EMU < prev    next >
Text File  |  1990-06-01  |  4KB  |  227 lines
  1. INITIAL
  2. { VT100 emulation file.  Model=VT102, includes VT52 support }
  3. z#origin(1)
  4. z#setbuf(1,0);z#setbuf(3,0)
  5. z#awrap(0)
  6. z#setatt(7)
  7. z#setmar(1,@mrow)
  8. z#setins(0)
  9. z#setflg(a,0)    { =1 vt52, =0 ansi mode }
  10. @f1 = 'if (z#flg(a)=0) "$1bOP" else "$1bP"'
  11. @f2 = 'if (z#flg(a)=0) "$1bOQ" else "$1bQ"'
  12. @f3 = 'if (z#flg(a)=0) "$1bOR" else "$1bR"'
  13. @f4 = 'if (z#flg(a)=0) "$1bOS" else "$1bS"'
  14. @NL-0 = 'if (z#flg(a)=0) "$1bOp" else "$1b?p"'
  15. @NL-1 = 'if (z#flg(a)=0) "$1bOq" else "$1b?q"'
  16. @NL-2 = 'if (z#flg(a)=0) "$1bOr" else "$1b?r"'
  17. @NL-3 = 'if (z#flg(a)=0) "$1bOs" else "$1b?s"'
  18. @NL-4 = 'if (z#flg(a)=0) "$1bOt" else "$1b?t"'
  19. @NL-5 = 'if (z#flg(a)=0) "$1bOu" else "$1b?u"'
  20. @NL-6 = 'if (z#flg(a)=0) "$1bOv" else "$1b?v"'
  21. @NL-7 = 'if (z#flg(a)=0) "$1bOw" else "$1b?w"'
  22. @NL-8 = 'if (z#flg(a)=0) "$1bOx" else "$1b?x"'
  23. @NL-9 = 'if (z#flg(a)=0) "$1bOy" else "$1b?y"'
  24. @NL-Dsh = 'if (z#flg(a)=0) "$1bOm" else "$1b?m"'
  25. @NL-Dot = 'if (z#flg(a)=0) "$1bOn" else "$1b?n"'
  26. @NL-Pls = 'if (z#flg(a)=0) "$1bOM" else "$1b?M"'
  27. @F10    = 'if (z#flg(a)=0) "$1bOl" else "$1b?l"'
  28. @uparr = '"$1b[A"'
  29. @dnarr = '"$1b[B"'
  30. @riarr = '"$1b[C"'
  31. @lfarr = '"$1b[D"'
  32. @del = '"$7f"'
  33. END
  34. INBUFFER
  35. 0x00 NUL
  36. 0x08 BS2
  37. 0x0b LF
  38. 0x0c LF
  39. 0x1a CAN
  40. 0x7f NUL
  41. END
  42. INBUFFER2
  43. 0x00 NUL
  44. 0x08 BS2
  45. 0x0b LF
  46. 0x0c LF
  47. 0x1a CAN
  48. 0x7f NUL
  49. 0x5f 0x20
  50. 0x60 0xfe
  51. 0x61 0x92
  52. 0x62 0x8b
  53. 0x63 0x9f
  54. 0x64 0x87
  55. 0x65 0x91
  56. 0x66 0xf8
  57. 0x67 0xf1
  58. 0x68 0xa5
  59. 0x69 0x9e
  60. 0x6a 0xd9
  61. 0x6b 0xbf
  62. 0x6c 0xda
  63. 0x6d 0xc0
  64. 0x6e 0xc5
  65. 0x6f 0xc4
  66. 0x70 0xc4
  67. 0x71 0xc4
  68. 0x72 0xc4
  69. 0x73 0xc4
  70. 0x74 0xc3
  71. 0x75 0xb4
  72. 0x76 0xc1
  73. 0x77 0xc2
  74. 0x78 0xb3
  75. 0x79 0xf3
  76. 0x7a 0xf2
  77. 0x7b 0xe3
  78. 0x7c 0xf7
  79. 0x7d 0x9c
  80. 0x7e 0xfa
  81. END
  82. OUTBUFFER
  83. END
  84. HOSTCODE
  85. [20h        z#lfnl(1)
  86. [?1h
  87. [?3h
  88. [?4h        z#setins(1)
  89. [?5h        z#setatt(112)
  90. [?6h        z#origin(2);poscur(1,1)
  91. [?7h        z#awrap(0)
  92. [?8h
  93. [?9h
  94. [1h
  95. [3h
  96. [4h        z#setins(1)
  97. [5h        z#setatt(112)
  98. [6h        z#origin(2);poscur(1,1)
  99. [7h        z#awrap(0)
  100. [8h
  101. [9h
  102. [20l        z#lfnl(2)
  103. [?1l
  104. [?2l        z#setflg(a,1)
  105. [?3l
  106. [?4l        z#setins(0)
  107. [?5l        z#setatt(7)
  108. [?6l        z#origin(1);poscur(1,1)
  109. [?7l        z#awrap(1)
  110. [?8l
  111. [?9l
  112. [1l
  113. [2l        z#setflg(a,1)
  114. [3l
  115. [4l        z#setins(0)
  116. [5l        z#setatt(7)
  117. [6l        z#origin(1);poscur(1,1)
  118. [7l        z#awrap(1)
  119. [8l
  120. [9l
  121. (A        z#setbuf(1,0)
  122. (B        z#setbuf(1,0)
  123. (0        z#setbuf(2,0)
  124. )A        z#setbuf(3,0)
  125. )B        z#setbuf(3,0)
  126. )0        z#setbuf(4,1)
  127. [m        z#setatt(7)
  128. [0m        z#setatt(7)
  129. [1m        z#setatt(14)
  130. [4m        z#setatt(1)
  131. [5m        z#setatt(128)
  132. [7m        z#setatt(112)
  133. [0;1m        z#setatt(14)
  134. [0;4m        z#setatt(1)
  135. [0;5m        z#setatt(128)
  136. [0;7m        z#setatt(112)
  137. [\t;\br     z#setmar(\\t,\\b);poscur(1,1)
  138. [;r        z#setmar(1,@mrow);poscur(1,1)
  139. [r        z#setmar(1,@mrow);poscur(1,1)
  140. [;\br        z#setmar(1,\\b);poscur(1,1)
  141. [\nA        z#curup(\\n,0)
  142. [A        z#curup(1,0)
  143. [\nB        z#curdn(\\n,0)
  144. [B        z#curdn(1,0)
  145. [\nC        z#curfwd(\\n)
  146. [C        z#curfwd(1)
  147. [\nD        z#curbak(\\n)
  148. [D        z#curbak(1)
  149. [;\nH        poscur(\\n,1)
  150. [\nH        poscur(1,\\n)
  151. [\n;H        poscur(1,\\n)
  152. [H        poscur(1,1)
  153. [;H        poscur(1,1)
  154. [\r;\cH     poscur(\\c,\\r)
  155. [;\nf        poscur(\\n,1)
  156. [\nf        poscur(1,\\n)
  157. [\n;f        poscur(1,\\n)
  158. [f        poscur(1,1)
  159. [;f        poscur(1,1)
  160. [\r;\cf     poscur(\\c,\\r)
  161. A        z#curup(1,0)
  162. B        z#curdn(1,0)
  163. C        z#curfwd(1)
  164. D        if\ (z#flg(a)==0)\ z#curdn(1,1)\ else\ z#curbak(1)
  165. E        z#curdn(1,1);poscur(1,@row)
  166. K        z#clreol
  167. J        z#clreos
  168. H        poscur(1,1)
  169. Y%l%c        poscur(expr(%c-31),expr(%l-31))
  170. I        z#curup(1,1)
  171. M        z#curup(1,1)
  172. Z        "$1b/Z"
  173. 7        z#savorg;z#savpos;z#savbuf
  174. 8        z#resorg;z#respos;z#resbuf
  175. H        z#tabset
  176. [g        z#tabclr
  177. [0g        z#tabclr
  178. [3g        z#tabcla
  179. #3
  180. #4
  181. #5
  182. #6
  183. [K        z#clreol
  184. [0K        z#clreol
  185. [1K        z#clrbol
  186. [2K        z#clrlin
  187. [J        z#clreos
  188. [0J        z#clreos
  189. [1J        z#clrbos
  190. [2J        clear
  191. [P        z#del(1)
  192. [0P        z#del(1)
  193. [\nP        z#del(\n)
  194. [L        z#inslin(1)
  195. [0L        z#inslin(1)
  196. [\nL        z#inslin(\n)
  197. [M        z#dellin(1)
  198. [0M        z#dellin(1)
  199. [\nM        z#dellin(\n)
  200. [5n        "$1b[0n"
  201. [6n        "$1b[@row.;@col.R"
  202. [c        "$1b[?1;0c"
  203. [0c        "$1b[?1;0c"
  204. Z        "$1b[?1;0c"
  205. c        z#origin(1);z#setbuf(1,0);z#setbuf(3,0);z#awrap(0);z#setmar(1,@mrow);
  206. #8
  207. [2;1y
  208. [2;2y
  209. [2;4y
  210. [2;9y
  211. [2;10y
  212. [2;12y
  213. [2;16y
  214. [2;24y
  215. [0q
  216. [q
  217. [1q
  218. [2q
  219. [3q
  220. [4q
  221. <        z#setflg(a,0)
  222. =
  223. >
  224. F        z#setbuf(2,1)
  225. G        z#setbuf(1,1)
  226. END
  227.